(Freverse): Use QUIT.

diff --git a/src/fns.c b/src/fns.c
index 39437b2b522f95682fb6f8b40f3da6419cfba1bd..e531103126da629b080731b71e8e0ac014b279c3 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1815,7 +1815,10 @@ See also the function `nreverse', which is used more often.  */)
   Lisp_Object new;
 
   for (new = Qnil; CONSP (list); list = XCDR (list))
-    new = Fcons (XCAR (list), new);
+    {
+      QUIT;
+      new = Fcons (XCAR (list), new);
+    }
   if (!NILP (list))
     wrong_type_argument (Qconsp, list);
   return new;